home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / clickWarrior.tcl < prev    next >
Text File  |  1995-11-16  |  162b  |  10 lines
  1.  
  2. eventHandler ALFA CWOF clickHandler
  3.  
  4. proc clickHandler {msg} {
  5.     global HOME dum
  6.     if {[regexp {╥(.*)╙} $msg dummy fname]} {
  7.         edit "$HOME:EditSource:$fname"
  8.     }
  9. }
  10.